home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / tcprogud.sit / TC Prog Guide / card_6390.txt < prev    next >
Text File  |  1991-02-27  |  2KB  |  84 lines
  1. -- card: 6390 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 4755
  5. -- name: notes
  6. ----- HyperTalk script -----
  7. on updateNotesPg
  8.   put the number of me into currentCard
  9.   get field "page no" of card currentCard - 1
  10.   add 1 to it
  11.   put it into field "page no" of card currentCard
  12.   put currentCard + 1 into nextCard
  13.   if nextCard <= the number of cards then
  14.     get the name of card nextCard
  15.     get word 2 of it
  16.     get char 2 to 6 of it
  17.     if it is "notes" then
  18.       send updateNotesPg to card nextCard
  19.     end if
  20.   end if
  21. end updateNotesPg
  22.  
  23.  
  24. -- part 1 (field)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=14 top=60 right=300 bottom=494
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: notes
  36.  
  37.  
  38. -- part 5 (button)
  39. -- low flags: 00
  40. -- high flags: A003
  41. -- rect: left=352 top=26 right=43 bottom=470
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Add Notes Pg.
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   put the userLevel into currentLevel
  53.   set the userLevel to 5
  54.   doMenu "Copy Card"
  55.   doMenu "Paste Card"
  56.   put "Notes (cont.)" into field "heading"
  57.   put "" into card field "notes"
  58.   put "" into field "page no"
  59.   set the cantdelete of this card to false
  60.   send updateNotesPg
  61.   updateBookmarks (the number of this card)
  62.   send showBookmarks
  63.   set the userLevel to currentLevel
  64. end mouseUp
  65.  
  66.  
  67.  
  68. -- part contents for background part 7
  69. ----- text -----
  70. 222
  71.  
  72. -- part contents for background part 6
  73. ----- text -----
  74. Notes
  75.  
  76. -- part contents for card part 1
  77. ----- text -----
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.